﻿Module Module1
  Sub Main()
    Dim i As Integer = 0
    Do While i < 12
      i += 1
      Console.WriteLine("Riga: " & i)
    Loop
    Console.ReadLine()
  End Sub
End Module
